home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Newton / Game / KidsCard / Project Data < prev    next >
Encoding:
Text File  |  1993-08-18  |  771 b   |  30 lines  |  [TEXT/NTP1]
  1.  
  2. func getSound(rsrcName, is11kHz)   // apologies to Tom Hedges
  3.     begin
  4.         local snd := {
  5.         sndFrameType: 'simpleSound,
  6.         samplingRate: 22026.0,
  7.         dataType: 1,
  8.         compressionType: 0};
  9.  
  10.         if is11kHz then
  11.             begin
  12.                 snd.samples := GetSndAsSamplesRate11KHz(rsrcName);
  13.                 snd.samplingRate := 11013.0
  14.             end
  15.         else
  16.             begin
  17.                 snd.samples := GetSndAsSamples(rsrcName);
  18.                 snd.samplingRate := 22026.0
  19.             end;
  20.  
  21.        return  snd
  22.     end;
  23.  
  24. rf := OpenResFileX("::newton apps:helloworld:hello.rsrc");
  25.  
  26. patrickSound := getSound("Patrick", TRUE);
  27. chrisSound := getSound("Christopher", TRUE);
  28. kaitSound := getSound("Kaitlyn", TRUE);
  29.  
  30. CloseResFileX(rf);